home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / MOVIES.DIR / 00057_Script_bt < prev    next >
Text File  |  1995-11-15  |  1KB  |  40 lines
  1. -- parent script
  2. --  button trios
  3. property myChannel, myNormal, myRollover, myPressed, myScript, myOriginal
  4. on birth me,sp, no, ro, pr,sc
  5.   set myRollover to (the number of cast ro)
  6.   set myPressed to (the number of cast pr)
  7.   set myNormal to (the number of cast no)
  8.   set myOriginal to (the number of cast no)
  9.   set myChannel to integer(sp)
  10.   set myScript to sc
  11.   return me
  12. end
  13.  
  14. on rollo me
  15.   --if the castNum of sprite myChannel = myRollover then exit
  16.   puppetSprite myChannel,TRUE
  17.   set the castNum of sprite myChannel to myRollover
  18.   updateStage
  19.   --puppetSprite myChannel, false
  20. end
  21.  
  22. on press me
  23.   --if the castNum of sprite myChannel = myPressed then exit
  24.   puppetSprite myChannel,TRUE
  25.   set the castNum of sprite myChannel to myPressed
  26.   updateStage
  27.   puppetSprite myChannel, false
  28. end
  29.  
  30. on norm me
  31.   --if the castNum of sprite myChannel = myNormal then exit
  32.   puppetSprite myChannel,TRUE
  33.   set the castNum of sprite myChannel to myNormal
  34.   updateStage
  35.   puppetSprite myChannel, false
  36. end
  37.  
  38. on doScript me
  39.   do myScript
  40. end